home *** CD-ROM | disk | FTP | other *** search
/ Photography Workshop / PhotoWorkShop.iso / pc / Content / Shutter / Shutter.cst / 00001_Shutter Script.ls next >
Encoding:
Text File  |  2002-04-11  |  1.2 KB  |  48 lines
  1. property ancestor
  2. property ShutterButtons
  3. property Mode
  4. property Speed
  5.  
  6. on Birth me, theChannelObject, thePageName, thePageInfo
  7.   set the ancestor of me to Birth( script "Master Page Template", theChannelObject, thePageName, thePageInfo, true, true )
  8.   
  9.   set ShutterButtons to FindButton( me, "ShutterButtons" )
  10.   SetCameraValue( #ShutterSpeed, "250" )
  11.   TurnRadioButtonOn( ShutterButtons, "S" & GetCameraValue( #ShutterSpeed ), false )
  12.   
  13.   set Mode to #Tripod
  14.   set Speed to #Med
  15.   
  16.   set SpeedButtons to FindButton( me, "SpeedButtons" )
  17.   TurnRadioButtonOn( SpeedButtons, string(Speed), false )
  18.   
  19.   set the goblack of me to true
  20.   
  21.   Show me
  22.   return me
  23. end
  24.  
  25. on ChangePage me, theElementID, theValue1, theValue2
  26.   ChangePage( the ancestor of me, theElementID, theValue1, theValue2 )
  27.   case theElementID of
  28.     #Speed:
  29.       set speed to theValue1
  30.       Show me
  31.     #Mode:
  32.       set mode to theValue1
  33.       Show me
  34.   end case
  35. end
  36.  
  37. on BuildName me
  38.   return char 1 of string(Speed) & char 1 of string(mode) & string( GetCameraValue( #ShutterSpeed ) )
  39. end
  40.  
  41. on BuildImageName me
  42.   set theImageName to "S1" & BuildName( me )
  43.   return theImageName
  44. End
  45.  
  46. on BuildCritiqueName me
  47.   return BuildName( me )
  48. end